0 POKE53280,6:POKE53281,0
2 TI$="000000":DIMCH(23):UL=2:PRINT"[147]"
3 DATA2,0,1,4,7,8:DATA2,3,5,6,9:DATA5,6,2,4,3,7
4 FORI=0TO10:READNM(I):NEXT:RESTORE:FORI=0TO10:READP$(I):NEXT
5 FORI=0TO5:READSA(I):NEXT
10 FORX1=0TO2:C1=SA(X1)
15 FORX2=0TOUL:C2=C1+SA(X2)
20 FORX3=0TO3:C3=C2+SA(X3):IFC3>15THEN55
25 FORX4=0TO5:C4=C3+SA(X4):IFC4>17THEN50
30 FORX5=0TO3:C5=C4+SA(X5):IFC5>19THEN45
35 FORX6=0TO5:C6=C5+SA(X6):IFC6=21THEN70
40 NEXT
45 NEXT
50 NEXT
55 NEXT
60 NEXT
65 UL=5:NEXT:GOTO200
70 HN=NM(X1)*10:LA=X2:LB=X2:IFX2=0THENLA=6:LB=10
71 IFX2=0ANDX1=0THENLA=6:LB=7
75 LC=X3:LD=X3:IFX3=0THENLC=6:LD=8
80 LE=X4:LF=X4:IFX4=0THENLE=6:LF=10
85 LG=X5:LH=X5:IFX5=0THENLG=6:LH=8
90 LI=X6:LJ=X6:IFX6=0THENLI=6:LJ=10
95 FORY2=LATOLB:HC=HN+NM(Y2)
96 FORY3=LCTOLD:FORY4=LE TOLF
98 Y5=LG
99 Y6=LI
100 PRINT""P$(X1);P$(Y2);":";P$(Y3);P$(Y4);":";P$(Y5);P$(Y6)
101 CH(HC)=CH(HC)+1:CD=CD+1
102 IFLJ>Y6THENY6=Y6+1:GOTO100
103 IFLH>Y5THENY5=Y5+1:GOTO99
105 NEXT:NEXT:NEXT:GOTO40
200 FORI=0TO23:PRINTI,CH(I):NEXT:PRINTCD:PRINTTI$:END
300 REM ==================================
310 REM   COMMODARES PROBLEM #52-3 :
320 REM      CLOCK SEGMENTS
330 REM   SOLUTION BY
340 REM      CRAIG EWERT
350 REM ==================================